home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / PREVHAND.PRG < prev    next >
Text File  |  1994-10-12  |  3KB  |  84 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: PREVHAND.PRG        Copyright: Borland International
  4. *   Date Created: 22 Mar 94            Language: dBASE 5.0
  5. *   Time Created: 20:04:48               Author: Borland dBASE R&D
  6. *   /brief/library.src
  7. *.............................................................................
  8.  
  9.  
  10. *....................................................................
  11. * Procedure Name:   PrevHand
  12. * Parameters:       None
  13. * Ext Memvars:      None
  14. * Description:      Skips back one record in the current database
  15. *                   Default ONCLICK handler for "Previous" button in
  16. *                   forms designer
  17. *....................................................................
  18. PROCEDURE PrevHand
  19. #include "talkoff.hdb"
  20.  
  21.     IF TYPE( "Form.CurrMast" ) = "C" .OR. TYPE( "Form.FormView" ) = "C"
  22.  
  23.         IF TYPE( "Form.CurrMast" ) = "C"
  24.             SELECT ( Form.CurrMast )
  25.  
  26.             *--------------------------------------
  27.             *-- Reset the Adding record flag if set
  28.             *--------------------------------------
  29.             IF TYPE( "Form.AddingRec" ) = "L"
  30.                 Form.AddingRec = .F.
  31.             ENDIF
  32.  
  33.         ENDIF
  34.         IF .NOT. BOF()
  35.             IF .NOT. SubmitFm( m->Form )
  36.                 #include "talkon.hdb"
  37.                 RETURN
  38.             ENDIF
  39.             IF TYPE( "Form.CurrMast" ) = "C"
  40.                 SELECT ( Form.CurrMast )
  41.             ENDIF
  42.             SKIP -1
  43.  
  44.             DO UpLook WITH m->Form
  45.  
  46.             lVoid = Form.Refresh()
  47.             IF TYPE( "Form.CurrMast" ) = "C"
  48.                 SELECT ( Form.CurrMast )
  49.             ENDIF
  50.  
  51.             IF TYPE( "Form.DetExist" ) = "L" .AND. Form.DetExist
  52.                 DO UpDetail WITH Form
  53.             ENDIF
  54.  
  55.         ENDIF
  56.         IF TYPE( "Form.CurrMast" ) = "C"
  57.             SELECT ( Form.CurrMast )
  58.         ENDIF
  59.     ENDIF
  60. #include "talkon.hdb"
  61. RETURN
  62.  
  63.  
  64. PROCEDURE HelpObj
  65. *-----------------------------------------------------------------
  66. * NAME
  67. *   HelpObj - Displays user-defined help, if any, for this button.
  68. *
  69. * DESCRIPTION
  70. *   This routine is required here because you can have only one
  71. *   ProcFile reference per object.
  72. *
  73. *-----------------------------------------------------------------
  74.     IF This.ClassName # "MENUITEM"
  75.         DO HelpDspy WITH m->This
  76.     ELSE
  77.         IF TYPE("Form.ActiveControl()") = "O"
  78.             DO HelpDspy WITH Form.ActiveControl()
  79.         ENDIF
  80.     ENDIF
  81. RETURN
  82.  
  83.  
  84.